
module WindowUtils where

import Graphics.UI.Gtk

-- CAUTION! PARTIAL 
searchByIndex :: Int -> [a] -> a
searchByIndex 0 (x:xs)  = x
searchByIndex n (x:xs)  = searchByIndex (n-1) (xs)


myLabelWithFrameNew :: IO (Label,Frame)
myLabelWithFrameNew = do
  label <- labelNew Nothing
  frame <- frameNew
  containerAdd frame label
  frameSetShadowType frame ShadowOut
  return (label, frame)
 
  